home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 050a.dms / 050a.adf / EXAMPLE_PROGRAMS / example22.AMOS / example22.amosSourceCode < prev    next >
AMOS Source Code  |  1992-02-26  |  827b  |  26 lines
  1. '==============
  2. 'Example22.Amos  
  3. '==============
  4.  
  5.  
  6. Rem A pretty amazing starfield running under interupts using the SHIFT command 
  7. '
  8. Rem The project  was to make the joystick control the starfields left and right
  9. Rem movement. As you can see it's pretty simple. I have added two features:
  10. Rem The starfield starts off stationary, this is because no SHIFT command
  11. Rem has been called until a joystick movement is detected. I have also 
  12. Rem added the ability to stop the starfield by pressing fire.
  13. Rem Click the mouse to exit the program. 
  14. Rem See chapter 22 for more in-depth info. 
  15. '------------------------------------------------------------------------------
  16. Hide On 
  17. Unpack 10 To 3
  18.  
  19. Repeat 
  20. If Jleft(1) Then Shift Up 1,1,31,1
  21. If Jright(1) Then Shift Down 1,1,31,1
  22. If Fire(1) Then Shift Off 
  23. Until Mouse Key
  24.  
  25. Default 
  26. Edit